home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / MEAN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  640 b   |  42 lines
  1. 10  PRINT "MEAN, VARIANCE,  ";
  2. 20  PRINT "STANDARD DEVIATION"
  3. 30  PRINT
  4. 40  PRINT "METHOD (0=POPULATION,  1=SAMPLE);
  5. 41  INPUT S
  6. 50  PRINT "DATA (0=GROUPED, 1=UNGROUPED);
  7. 60  INPUT K
  8. 70  PRINT "NUMBER OF OBSERVATIONS";
  9. 80  INPUT N
  10. 90  R=0
  11. 100  M=0
  12. 110  P=0
  13. 120  IF K=1 THEN 230
  14. 130  FOR I=1 TO N
  15. 140  PRINT "ITEM, FREQUENCY ";I;
  16. 150  INPUT A,B
  17. 160  R=R+B*A
  18. 170  P=P+B
  19. 180  M=M+B*A^2
  20. 190  NEXT I
  21. 200  R=R/P
  22. 210  V=(M-P*R^2)/(P-S)
  23. 220  GOTO 310
  24. 230  FOR I=1 TO N
  25. 240  PRINT  "ITEM ";I;
  26. 250  INPUT D
  27. 260  P=P+D
  28. 270  M=M+D^2
  29. 280  NEXT I
  30. 290  R=P/N
  31. 300  V=(M-N*R^2)/(N-S)
  32. 310  PRINT
  33. 320  PRINT  "MEAN","VARIANCE"
  34. 330  PRINT R,V
  35. 340  PRINT
  36. 350  PRINT  "STANDARD DEVIATION"
  37. 360  PRINT SQR(V)
  38. 370  PRINT
  39. 380  PRINT "MORE DATA? (1=YES,  0=NO)";
  40. 390  INPUT S
  41. 400  IF S=1 THEN 30
  42.